www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminLabel\D_del_custom_asp_label.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <!--#include file=../../inc/ND_class_function.asp--> <% AJAXshowLoader() %> <% if find_dataw("qitashezhi123","0",7)<>"1" and qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if %> <% ss4=request("fname") '//ss4=left(ss4,len(ss4)-1) '去掉最后一个/号 strDBPath1= left(ss4,instrrev(ss4,"/")) sssssss1="" for i=1 to len(ss4) if mid(ss4,len(ss4)-i+1,1)="/" then sssssss1=i exit for end if next if sssssss1<>"" then sssssss1=right(ss4,sssssss1-1) else sssssss1=ss4 strDBPath1="" end if 'strDBPath1=路径 'filename=文件名 filename=sssssss1 set filea=new Cls_FSO if filea.deleteAFile(server.mappath("../../Label/custom_Label/"&ss4))=1 then %> <script language=javascript> alert("删除成功"); self.location="D_admin_custom_label.asp?fpath=<%=strDBPath1%>"; </script> <% else %> <script language=javascript> alert("删除失败"); self.location="D_admin_custom_label.asp?fpath=<%=strDBPath1%>"; </script> <% end if AJAXcloseLoader() %>